home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / MUI / MCC_Time / Developer / Cluster / txt / MCCTime.mod < prev   
Encoding:
Text File  |  1997-04-22  |  1005 b   |  53 lines
  1. |##########|
  2. |#MAGIC   #|GBIIIMLA
  3. |#PROJECT #|"MuiImport"
  4. |#PATHS   #|"StdProject"
  5. |#LINK    #|""
  6. |#GUIDE   #|""
  7. |#STACK   #|"4096"
  8. |#FLAGS   #|xx---x--xxx--xx-----------------
  9. |#USERSW  #|--------------------------------
  10. |#USERMASK#|--------------------------------
  11. |#SWITCHES#|xx----xxxx-xx---
  12. |##########|
  13. IMPLEMENTATION MODULE MCCTime;
  14.  
  15. FROM MuiO IMPORT NewObjectA, MuiTagAPtr, DoMethodRef;
  16.  
  17.  
  18. PROCEDURE MakeTimeObjectA (tags : TimeTagAPtr) : TimeObject;
  19.  
  20. BEGIN
  21.   RETURN NewObjectA (cTime, MuiTagAPtr(tags));
  22. END MakeTimeObjectA;
  23.  
  24.  
  25. PROCEDURE MakeTimeObject (tags : LIST OF TimeTags) : TimeObject;
  26.  
  27. BEGIN
  28.   RETURN NewObjectA (cTime, MuiTagAPtr(tags[0]'PTR));
  29. END MakeTimeObject;
  30.  
  31.  
  32. METHOD Increase   (o : TimeObject);
  33.  
  34. BEGIN
  35.   DoMethodRef (o,MsgRoot:(mTimeIncrease));
  36. END Increase;
  37.  
  38.  
  39. METHOD Decrease   (o : TimeObject);
  40.  
  41. BEGIN
  42.   DoMethodRef (o,MsgRoot:(mTimeDecrease));
  43. END Decrease;
  44.  
  45.  
  46. METHOD SetCurrent (o : TimeObject);
  47.  
  48. BEGIN
  49.   DoMethodRef (o,MsgRoot:(mTimeSetCurrent));
  50. END SetCurrent;
  51.  
  52. END MCCTime.
  53.